home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / exampl_1 / form1.frm < prev   
Text File  |  1999-08-17  |  3KB  |  111 lines
  1. VERSION 5.00
  2. Begin VB.Form Form1 
  3.    Caption         =   "Form1"
  4.    ClientHeight    =   3705
  5.    ClientLeft      =   60
  6.    ClientTop       =   345
  7.    ClientWidth     =   2925
  8.    LinkTopic       =   "Form1"
  9.    ScaleHeight     =   3705
  10.    ScaleWidth      =   2925
  11.    StartUpPosition =   3  'Windows Default
  12.    Begin VB.CheckBox Check1 
  13.       Caption         =   "Option 6"
  14.       Height          =   255
  15.       Index           =   5
  16.       Left            =   120
  17.       TabIndex        =   6
  18.       Top             =   1320
  19.       Width           =   1095
  20.    End
  21.    Begin VB.CheckBox Check1 
  22.       Caption         =   "Option 5"
  23.       Height          =   255
  24.       Index           =   4
  25.       Left            =   120
  26.       TabIndex        =   5
  27.       Top             =   1080
  28.       Width           =   975
  29.    End
  30.    Begin VB.CommandButton Command1 
  31.       Caption         =   "&Exit"
  32.       Height          =   375
  33.       Left            =   1560
  34.       TabIndex        =   4
  35.       Top             =   3240
  36.       Width           =   1335
  37.    End
  38.    Begin VB.CheckBox Check1 
  39.       Caption         =   "Option 4"
  40.       Height          =   255
  41.       Index           =   3
  42.       Left            =   120
  43.       TabIndex        =   3
  44.       Top             =   840
  45.       Width           =   1095
  46.    End
  47.    Begin VB.CheckBox Check1 
  48.       Caption         =   "Option 3"
  49.       Height          =   255
  50.       Index           =   2
  51.       Left            =   120
  52.       TabIndex        =   2
  53.       Top             =   600
  54.       Width           =   975
  55.    End
  56.    Begin VB.CheckBox Check1 
  57.       Caption         =   "Option 2"
  58.       Height          =   255
  59.       Index           =   1
  60.       Left            =   120
  61.       TabIndex        =   1
  62.       Top             =   360
  63.       Width           =   1095
  64.    End
  65.    Begin VB.CheckBox Check1 
  66.       Caption         =   "Option 1"
  67.       Height          =   255
  68.       Index           =   0
  69.       Left            =   120
  70.       TabIndex        =   0
  71.       Top             =   120
  72.       Value           =   1  'Checked
  73.       Width           =   1095
  74.    End
  75.    Begin VB.Label Label2 
  76.       Caption         =   "Click in a option and other.The ckeckbox is similar to option button."
  77.       Height          =   855
  78.       Left            =   1320
  79.       TabIndex        =   8
  80.       Top             =   120
  81.       Width           =   1455
  82.    End
  83.    Begin VB.Label Label1 
  84.       Caption         =   "Tested by Juan Alberto G≤mez MΘxico D.F. gomezja@amstd.com gomezja@go.com gomezja@vbomail.com"
  85.       Height          =   1335
  86.       Left            =   480
  87.       TabIndex        =   7
  88.       Top             =   1680
  89.       Width           =   1695
  90.    End
  91. End
  92. Attribute VB_Name = "Form1"
  93. Attribute VB_GlobalNameSpace = False
  94. Attribute VB_Creatable = False
  95. Attribute VB_PredeclaredId = True
  96. Attribute VB_Exposed = False
  97. Option Explicit
  98. Private Sub Command1_Click()
  99. Unload Me
  100. End Sub
  101.  
  102. Private Sub Check1_Click(Index As Integer)
  103. Dim check As CheckBox
  104. If Check1(Index).Value = 1 Then
  105.     For Each check In Check1
  106.         If check.Index <> Index Then check.Value = 0
  107.     Next
  108. End If
  109. End Sub
  110.  
  111.